home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / sim. c64_sim.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  744b  |  21 lines
  1. 100 :  rem* simulation von schwingungsvorgaengen *
  2. 105 :  rem* fuer c64 bitte vorher simon's basic laden *
  3. 110 :  rem* oder graphikbefehle an eigenes system anpassen *
  4. 113 :
  5. 115 :
  6. 120 :  rem* kenngroessen des schwingungssystems *
  7. 130 efq=.01:d=0:a=0:wa=0
  8. 140 v=0:x=80: rem* anfangsbedingungen *
  9. 150 :  xm=1:c=0: rem* x-massstab *
  10. 160 :  D1,6: rem* graphik einschalten *
  11. 170 :  D0,100,319,100,1: rem* abszisse *
  12. 180 :  D0,0,0,199,1: rem* ordinate *
  13. 190 for n=0to319
  14. 200 v=v-d*v-efq*x-a*sin(wa*n):x=x+v
  15. 210 :  ifabs(x)>xm*100then250: rem* D{$7e}or vermeiden *
  16. 220 :  ifc=0thenDn,100-x/xm,1:c=1:goto240: rem* 1.punkt setzen *
  17. 230 :  Dn-1,100-xl/xm,n,100-x/xm,1: rem* punkte verbinden *
  18. 240 :  xl=x: rem* letztes x merken *
  19. 250 next
  20. 260 :  goto260: rem* warteschleife. ausstieg mit stop-taste *
  21.